home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / st80_pr4.lha / st80_pre4 / Foible / foible / InputSensor.st < prev    next >
Text File  |  1993-07-24  |  462b  |  19 lines
  1. 'From Tektronix Smalltalk-80 version T2.2.0cM3, of September 21, 1987 on 10 April 1990 at 11:53:44 pm'!
  2.  
  3.  
  4.  
  5. !InputSensor methodsFor: 'mouse'!
  6.  
  7. follow: changeBlock doing: actionBlock
  8.     | previous next | 
  9.     previous _ changeBlock value: self cursorPoint.
  10.     [self anyButtonPressed] whileTrue:
  11.         [next _ changeBlock value: self cursorPoint.
  12.         next ~= previous
  13.             ifTrue:
  14.                 [actionBlock value: previous value: next.
  15.                 previous _ next].
  16.         Processor yield].
  17.     ^next! !
  18.  
  19.